home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / demos / st_conn.lzh / 10KHZ.LZH / 10KHZ.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1985-11-20  |  500b  |  12 lines
  1. RESERVE 100000
  2. CLEAR
  3. HIDEM
  4. buffer#=&H70000
  5. frq#=(1/(2.79365*10^-7))/(2.4576*10^6/(4*61))
  6. FOR i#=1 TO &H400
  7.   LPOKE buffer#,65536*frq#/i#
  8.   buffer#=buffer#+4
  9. NEXT i#
  10. BSAVE "B:\10khz.FRQ",&H70000,4096
  11. SHOWM
  12.